$PBExportHeader$cat_response.sru
forward
global type cat_response from nonvisualobject
end type
end forward

global type cat_response from nonvisualobject autoinstantiate
end type

type variables
Public:
integer          retorno  //valor de retorno a la ventana que la llamo (1 eligio algo, -1 si no eligio nada)
end variables

on cat_response.create
TriggerEvent( this, "constructor" )
end on

on cat_response.destroy
TriggerEvent( this, "destructor" )
end on

